home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #120 (19xx)(APS Electronic).zip / Bavarian #120 (19xx)(APS Electronic).adf / Champs (.txt) < prev    next >
AmigaBASIC Source Code  |  1978-01-01  |  2KB  |  78 lines
  1. SCREEN 1,320,240,5,1
  2. WINDOW 1," Quizmaster   V2.0         High-Scores",,0,1
  3. PALETTE 31,0,0,0:PALETTE 30,0,0.6,0:PALETTE 29,0,0.9,0
  4. PALETTE 28,0.7,0.7,0.7:PALETTE 27,1,1,1:PALETTE 19,0,0.3,0
  5. PALETTE 23,1,0,0:PALETTE 24,0,0.5,0:PALETTE 25,0.2,0.2,1
  6. PALETTE 26,1,1,0:PALETTE 21,1,0,1:PALETTE 22,0.65,0,0.65
  7. OPEN "df0:Data/QM.bob Farben" FOR INPUT AS #1
  8. INPUT#1,Planes
  9. FOR i=1 TO 2^Planes
  10. INPUT#1,a:INPUT#1,b:INPUT#1,c
  11. PALETTE i-1,a/256,b/256,c/256
  12. PALETTE 1,0,0,0
  13. NEXT i
  14. CLOSE 1
  15. OPEN "df0:Data/QM.bob" FOR INPUT AS 1
  16. OBJECT.SHAPE 1,INPUT$(LOF(1),1)
  17. CLOSE 1
  18. OBJECT.PLANES 1,2^Planes-1,0
  19. OBJECT.X 1,180:OBJECT.Y 1,60
  20.  
  21. GOSUB Loop
  22.  
  23. OPEN "df0:Data/QM.high" FOR INPUT AS 1
  24. FOR i=1 TO 4:INPUT #1,high(i):NEXT i:CLOSE 1
  25.  
  26. OPEN "df0:Data/QM.namen" FOR INPUT AS 1
  27. FOR i=1 TO 4:INPUT #1,namen$(i):NEXT i:CLOSE 1
  28.  
  29. LINE (0,1)-(320,5),31,b:LINE (0,2)-(320,4),30,b
  30. LINE (0,3)-(320,3),29
  31. LOCATE 2,14:COLOR 28:PRINT "Hall ";:COLOR 27
  32. PRINT "of ";:COLOR 28:PRINT "Fame"
  33. LINE (0,18)-(320,22),19,b:LINE (0,19)-(320,21),30,b
  34. LINE (0,20)-(320,20),29
  35.  
  36. LOCATE 12,1:COLOR 23:PRINT "1)       "namen$(1)
  37. LOCATE 14,1:COLOR 24:PRINT "2)       "namen$(2)
  38. LOCATE 16,1:COLOR 25:PRINT "3)       "namen$(3)
  39. LOCATE 18,1:COLOR 26:PRINT "4)       "namen$(4)
  40. COLOR 27
  41. LOCATE 12,3:PRINT high(1)
  42. LOCATE 14,3:PRINT high(2)
  43. LOCATE 16,3:PRINT high(3)
  44. LOCATE 18,3:PRINT high(4)
  45.  
  46. LINE (0,98)-(150,100),22,b:LINE (0,99)-(150,99),21
  47. LINE (0,114)-(150,116),22,b:LINE (0,115)-(150,115),21
  48. LINE (0,130)-(150,132),22,b:LINE (0,131)-(150,131),21
  49.       
  50. OBJECT.ON 1
  51.  
  52. LOCATE 4:COLOR 0:INPUT a
  53. OBJECT.OFF 1:CLS
  54. PALETTE 1,1,1,1:PALETTE 0,0,0,0.4:PRINT:COLOR 1
  55. PRINT " Ende.":PRINT
  56. END      
  57.       
  58. Loop:
  59. LOCATE 5,14:PALETTE 20,0,0,0:COLOR 20
  60. PRINT "Und nun..."
  61. FOR i=0 TO 1 STEP+0.015:PALETTE 20,i,i,i:NEXT i
  62. FOR i=1 TO 1000:NEXT i
  63. FOR i=1 TO 0 STEP-0.015:PALETTE 20,i,i,i:NEXT i
  64. LOCATE 5,14:PRINT "             "
  65. LOCATE 5,1:PRINT "...die Elite der QUIZMASTER-Spieler..."
  66. FOR i=0 TO 1 STEP+0.015:PALETTE 20,i,i,i:NEXT i
  67. FOR i=1 TO 3000:NEXT i
  68. FOR i=1 TO 0 STEP-0.015:PALETTE 20,i,i,i:NEXT i
  69. LOCATE 5,1:PRINT "                                             "
  70. LOCATE 5,2:PRINT "...Später [RETURN] zum Fortfahren..."
  71. FOR i=0 TO 1 STEP+0.015:PALETTE 20,i,i,i:NEXT i
  72. FOR i=1 TO 2000:NEXT i
  73. FOR i=1 TO 0 STEP-0.015:PALETTE 20,i,i,i:NEXT i
  74. LOCATE 5,2:PRINT "                                             "
  75. LOCATE 5,6:PRINT "··· DIE ABSOLUTE ELITE ···"
  76. FOR i=0 TO 0.9 STEP+0.015:PALETTE 20,i,i,i:NEXT i
  77. RETURN      
  78.